; Music of Tombstowne (1985) (Amsoft)
; Ripped by Megachur the 26/02/2009

; Need System Vectors

	write "TOMBSTOW.BIN"

music_date_rip	equ &1a29
music_adr	equ &7610
first_theme	equ 0
last_theme	equ 0	; 0 -> 0

	read "music_header_v1_0.asm"

	db #01,#46,#9b,#34,#0d,#02,#d4,#3a
	db #02,#9f,#02,#09,#02,#a3,#38,#08
	db #9f,#01,#11,#02,#d4,#3a,#02,#17
	db #10,#01,#02,#a3,#38,#12,#17,#0f
	db #01,#02,#d4,#3a,#8e,#9f,#02,#09
	db #02,#a3,#38,#94,#9f,#01,#11,#02
	db #59,#47,#14,#9f,#06,#11,#02,#a3
	db #38,#8c,#9f,#01,#11,#01,#ab,#47
	db #14,#25,#02,#ab,#47,#1a,#33,#01
	db #02,#01,#ab,#47,#18,#2e,#02,#a3
	db #38,#10,#9f,#04,#02,#02,#a3,#38
	db #58,#9f,#06,#02,#58,#9f,#06,#02
	db #ab,#47,#14,#25,#02,#ab,#47,#1a
	db #33,#01,#02,#01,#ab,#47,#18,#2e
	db #02,#a3,#38,#10,#9f,#04,#02,#02
	db #a3,#38,#58,#9f,#06,#02,#be,#00
	db #40,#fd,#00,#40,#be,#00,#40,#fd
	db #00,#40,#be,#00,#40,#fd,#00,#40
	db #be,#00,#40,#d5,#00,#40,#be,#00
	db #40,#fd,#00,#40,#be,#00,#40,#fd
	db #00,#40,#be,#00,#40,#fd,#00,#40
	db #be,#00,#40,#d5,#00,#40,#b3,#00
	db #40,#ef,#00,#40,#b3,#00,#40,#ef
	db #00,#40,#ef,#00,#40,#3f,#01,#40
	db #ef,#00,#40,#3f,#01,#40,#b3,#00
	db #40,#ef,#00,#40,#b3,#00,#40,#ef
	db #00,#40,#ef,#00,#40,#3f,#01,#40
	db #ef,#00,#40,#3f,#01,#40,#38,#02
	db #40,#f6,#02,#40,#38,#02,#40,#f6
	db #02,#40,#cc,#02,#40,#bc,#03,#40
	db #cc,#02,#40,#7e,#02,#40,#38,#02
	db #40,#f6,#02,#40,#38,#02,#40,#f6
	db #02,#40,#cc,#02,#40,#bc,#03,#40
	db #cc,#02,#40,#7e,#02,#40,#18,#02
	db #80,#18,#02,#80,#cc,#02,#80,#cc
	db #02,#40,#de,#01,#40,#18,#02,#80
	db #18,#02,#80,#cc,#02,#80,#cc,#02
	db #40,#de,#01,#40
	;org #773c
	db #00,#00,#20,#ef,#00,#40,#1c,#01
	db #40,#ef,#00,#40,#1c,#01,#40,#ef
	db #00,#40,#1c,#01,#40,#ef,#00,#40
	db #fd,#00,#40,#ef,#00,#40,#1c,#01
	db #40,#ef,#00,#40,#1c,#01,#40,#ef
	db #00,#40,#1c,#01,#40,#ef,#00,#40
	db #fd,#00,#20,#00,#00,#20,#d5,#00
	db #40,#0c,#01,#40,#d5,#00,#40,#0c
	db #01,#40,#1c,#01,#40,#66,#01,#40
	db #1c,#01,#40,#66,#01,#40,#d5,#00
	db #40,#0c,#01,#40,#d5,#00,#40,#0c
	db #01,#40,#1c,#01,#40,#66,#01,#40
	db #1c,#01,#40,#66,#01,#20
.l77a2
	db #00,#03,#01,#00,#00,#00,#00,#00
.l77ab equ $ + 1
	db #00,#00,#03,#01,#00,#00,#00,#00
	db #00,#00
.l77bb equ $ + 7
.l77b4
	db #02,#20,#ef,#01,#10,#ff,#0a,#01
.l77c3 equ $ + 7
.l77bf equ $ + 3
	db #10,#ff,#28,#01,#10,#ff,#0a,#82
	db #03,#01,#04,#03,#ff,#04
.l77d0 equ $ + 6
.l77ca
	db #00,#00,#00,#00,#00,#00,#00,#00
.l77d3 equ $ + 1
	db #00,#00,#00,#00,#00,#8e,#76,#00
	db #20,#ee,#76,#00,#1a,#3c,#77,#00
	db #22
;
.init_music
;
	ld a,#01
	ld hl,l77b4
	call #bcbc
	ld a,#02
	ld hl,l77bb
	call #bcbc
	ld a,#03
	ld hl,l77bf
	call #bcbc
	ld a,#01
	ld hl,l77c3
	call #bcbf
	ld hl,l77d0
	ld b,#81
	ld c,#00
	ld de,l781d
	call #bcef
	ld hl,l77ca
	ld de,#000a
	ld bc,#000a
	call #bce9
	ret
;
.play_music
.l781d
;
	di
	push ix
	ld b,#03
.l7822
	push bc
	ld hl,l77d3
	ld a,b
	ld de,#0004
.l782a
	add hl,de
	djnz l782a
	cp #03
	jr nz,l7833
	ld a,#04
.l7833
	push af
	push hl
	call #bcad
	pop hl
	pop bc
	cp #81
	jr z,l7873
	ld a,b
	cp #02
	jr z,l787b
	ld ix,l77a2
	ld (ix+#00),b
.l784a
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld c,(hl)
	inc (hl)
	ld b,#00
	ex de,hl
	add hl,bc
	add hl,bc
	add hl,bc
	ex de,hl
	ld a,(de)
	ld (ix+#03),a
	inc de
	ld a,(de)
	ld (ix+#04),a
	inc de
	ld a,(de)
	ld (ix+#07),a
	ld a,(hl)
	inc hl
	ld b,(hl)
	dec hl
	cp b
	call z,l7884
	push ix
	pop hl
	call #bcaa
.l7873
	pop bc
	djnz l7822
	pop ix
	ei
	reti
.l787b
	ld ix,l77ab
	ld (ix+#00),b
	jr l784a
.l7884
	ld (hl),#00
	ld a,(ix+#00)
	cp #04
	ret nz
	push ix
	ld a,(ix+#01)
	cp #03
	jr z,l78ac
	ld (ix+#01),#03
	ld (ix+#02),#01
	ld ix,l77ab
	ld (ix+#01),#03
	ld (ix+#02),#01
	pop ix
	ret
.l78ac
	ld (ix+#01),#01
	ld (ix+#02),#01
	ld ix,l77ab
	ld (ix+#01),#02
	ld (ix+#02),#02
	pop ix
	ret
	ld (bc),a
	ld (bc),a
	pop ix
	ret
;db #3e,#11,#f5,#3d,#06,#00,#0e,#00
;db #cd,#32,#bc,#f1,#3d,#20,#f3,#c9
;db #19,#19,#01,#01,#03,#03,#06,#18
;db #09,#09,#0a,#0a,#0c,#0c,#0d,#0d
;db #02,#02,#06,#06,#18,#06,#12,#12
;db #14,#14,#18,#18,#1a,#1a,#00,#00
;
.game_name
	db "Tombstowne",0
.game_year
	db "1985",0
.game_publisher
	db "Amsoft",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
